object fmProdutoGrupo: TfmProdutoGrupo
  Left = 0
  Top = 0
  Caption = 'Gerador de Grupo de Produto'
  ClientHeight = 429
  ClientWidth = 1060
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  PopupMenu = pmPrincipal
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 686
    Top = 0
    Width = 374
    Height = 412
    Align = alClient
    TabOrder = 3
    object Splitter1: TSplitter
      Left = 209
      Top = 1
      Width = 9
      Height = 410
      Beveled = True
      ExplicitLeft = 278
      ExplicitTop = -23
      ExplicitHeight = 391
    end
    object Panel3: TPanel
      Left = 218
      Top = 1
      Width = 155
      Height = 410
      Align = alClient
      TabOrder = 1
      object GroupBox2: TGroupBox
        Left = 1
        Top = 1
        Width = 153
        Height = 408
        Align = alClient
        Caption = 'Tabela de Grupo de Produto'
        TabOrder = 0
        object dbGrid_ProdutoGrupo: TFocusDbGrid
          Left = 2
          Top = 15
          Width = 149
          Height = 391
          Align = alClient
          Color = clWindow
          Columns = <
            item
              Expanded = False
              FieldName = 'cd_grupo'
              Title.Caption = 'C'#243'd. Grupo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'nm_grupo'
              Title.Caption = 'Descri'#231#227'o'
              Visible = True
            end>
          DrawingStyle = gdsGradient
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          ColorParStart = 14155755
          ColorParEnd = 11468759
          ColorImparStart = clWhite
          ColorImparEnd = 14803425
          SQL.Strings = (
            'select * from produto_grupo'
            'where 1=1')
          Params = <>
          TipoClasseBase = TProduto_Grupo
          TipoClasseDestino = Null
          AllowAppend = True
          FilterOFFOnColSearch = False
          Columns = <
            item
              Expanded = False
              FieldName = 'cd_grupo'
              Title.Caption = 'C'#243'd. Grupo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'nm_grupo'
              Title.Caption = 'Descri'#231#227'o'
              Visible = True
            end>
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 208
      Height = 410
      Align = alLeft
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 1
        Top = 1
        Width = 206
        Height = 408
        Align = alClient
        Caption = 'Tabela de Produto'
        TabOrder = 0
        object dbGrid_Produto_Interno: TFocusDbGrid
          Left = 2
          Top = 15
          Width = 202
          Height = 391
          Align = alClient
          Color = clWindow
          Columns = <
            item
              Expanded = False
              FieldName = 'cd_grupo_produto'
              Title.Caption = 'C'#243'd. Grupo'
              Width = 76
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'qt'
              Title.Caption = 'Qtde.'
              Width = 85
              Visible = True
            end>
          DrawingStyle = gdsGradient
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          ColorParStart = 14806271
          ColorParEnd = 12703487
          ColorImparStart = clWhite
          ColorImparEnd = 14803425
          SQL.Strings = (
            'SELECT *'
            'FROM'#9'('
            #9'SELECT '#9'Left(produto.prC'#243'digoProduto,4) As cd_grupo_produto,'
            #9#9'Count(*) as qt'
            #9'FROM '#9'produto As produto'
            #9'GROUP BY Left(produto.prC'#243'digoProduto,4)'
            #9'ORDER BY Left(produto.prC'#243'digoProduto,4)'
            ')'
            'WHERE 1=1')
          Params = <>
          TipoClasseBase = TProdutoInterno
          TipoClasseDestino = Null
          AllowAppend = True
          FilterOFFOnColSearch = False
          Columns = <
            item
              Expanded = False
              FieldName = 'cd_grupo_produto'
              Title.Caption = 'C'#243'd. Grupo'
              Width = 76
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'qt'
              Title.Caption = 'Qtde.'
              Width = 85
              Visible = True
            end>
        end
      end
    end
  end
  object gg_Parcial: TProgressBar
    Left = 649
    Top = 0
    Width = 10
    Height = 412
    Align = alLeft
    DoubleBuffered = True
    Orientation = pbVertical
    ParentDoubleBuffered = False
    Smooth = True
    MarqueeInterval = 1
    BarColor = clMoneyGreen
    BackgroundColor = clSkyBlue
    TabOrder = 1
    Visible = False
  end
  object gg_Progresso: TProgressBar
    Left = 659
    Top = 0
    Width = 27
    Height = 412
    Align = alLeft
    Orientation = pbVertical
    Smooth = True
    MarqueeInterval = 1
    SmoothReverse = True
    TabOrder = 2
    Visible = False
  end
  object mmAnalise: TMemo
    Left = 0
    Top = 0
    Width = 649
    Height = 412
    Align = alLeft
    Lines.Strings = (
      ''
      ''
      '')
    TabOrder = 0
    Visible = False
  end
  object sBar: TStatusBar
    Left = 0
    Top = 412
    Width = 1060
    Height = 17
    Panels = <
      item
        Width = 300
      end>
    Visible = False
  end
  object pmPrincipal: TPopupMenu
    OnPopup = pmPrincipalPopup
    Left = 336
    Top = 136
    object mi_AnalisarAuto: TMenuItem
      Caption = 'Analisar automaticamente'
      OnClick = mi_AnalisarAutoClick
    end
  end
end
